home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok59.lha / AmokEd_V1.02b / txt / .aedrc next >
Text File  |  1993-08-15  |  6KB  |  191 lines
  1. # .edrc für AmokEd V1.0 - 27 Jan 1991
  2.  
  3. # used toggles
  4.  
  5. # ignorecase toggle implementieren
  6.  
  7. # tabs and margin settings
  8.  
  9. set tabs 2
  10. margin            70
  11. tabstop        $tabs
  12. pageset           90
  13. #savetabs off
  14. resettoggle wordwrap
  15.  
  16. map a-. ((·))
  17.  
  18. # Cursor-Steuerung etc.
  19.  
  20. map -left (ifelse l (up last) left)
  21. map -right right
  22. map s-up pageup
  23. map s-down pagedown
  24. map s-right wright
  25. map s-left wleft
  26. map c-up top
  27. map c-down bottom
  28. map c-left first
  29. map c-right last
  30. map A-left  (goto block while cb (first del down) up firstnb) # Bl. 1 nach r
  31. map A-right (goto block while cb (first ( ) down) up firstnb) # Bl. 1 nach l
  32. map A-j (escimm (goto ))
  33. map sA-j (goto block)
  34.  
  35. unmap a-left
  36. unmap a-right
  37.  
  38. map return (split first if !r (while c=32 (down ( ) up)) down)
  39. map enter $-return
  40.  
  41. # BS/DEL with EOL join
  42. map bs (ifelse !l bs (if !t up last join))
  43. map del (ifelse !r del (if !b (down up join if !l (left ifelse c<>32 (right del) right)))
  44. map c-del deline
  45. map ac-del undeline
  46. #map s-del (if !r (scanf %s ifelse !ca (ifelse c=32 (while c=32 del) (while !ca (ifelse !r del abort))) (while ca (ifelse !r del abort))))
  47. set delword (while \\\$cond (ifelse !r del abort)
  48. map s-del (if !r (scanf %s ifelse !ca (ifelse c=32 (set cond c=32) (set cond (!ca ifelse c=32 abort))) (set cond ca) \\\$delword))
  49. map as-del (`\$scanf')
  50. map a-del remeol
  51. map a-bs (while !l bs)
  52.  
  53. map -tab tab
  54. map s-tab backtab
  55. map c-help undo
  56. map -help reformat
  57.  
  58. map A-1 (pong 1)
  59. map As-1 (ping 1)
  60. map A-2 (pong 2)
  61. map As-2 (ping 2)
  62. map A-3 (pong 3)
  63. map As-3 (ping 3)
  64.  
  65. map A-n newwindow
  66. map As-n (newwindow arpload)
  67. map A-o arpload
  68. map As-o arpinsfile
  69. map A-w saveold
  70. map As-w arpsave
  71. map A-q quit
  72. map As-q (if m saveold quit)
  73. map A-BS (map R-rmb (~iconify unmap R-rmb~) iconify)
  74. map A-b block
  75. map A-c bcopy
  76. map A-m bmove
  77. map A-x bdelete
  78. map A-i popmark
  79.  
  80. map As-s (escimm (find ))
  81. map As-r (escimm (multireplace ))
  82. map A-s next
  83. map A-a prev
  84. map A-r nextr
  85. map sA-a prevr
  86.  
  87. # Wort-Manipulationen
  88.  
  89. map A-g (ifelse cu (tlate +32) (tlate -32))
  90. map As-g (while ca (IF !cn ($A-g) right))
  91. map A-u (while cl (tlate -32 right))
  92. map As-u (while cu (tlate +32 right))
  93. map cA-u (goto block while cb (first while !r (if cl (tlate -32) rigth) down)) # Uppercase Block
  94. map cA-U (goto block while cb (first while !r (if cu (tlate +32) rigth) down)) # Lowercase Block
  95. map c-nk5 (if r abort scanf %1s del right insert (\$scanf))
  96.  
  97. map A-- (escimm (tlate ))
  98. map s-nk0 (toggle insertmode)
  99. map a-] (toggle wordwrap)
  100. map a-[ (toggle NumLock)
  101. source s:CursorPad.edrc
  102.  
  103. map  A-d (rx "'('||date()')')
  104. map  A-t (rx "'('||time()')')
  105.  
  106. unmap R-rmb
  107.  
  108. menuoff
  109. menuadd Project (    Clear) (unblock top block bottom block bdelete)
  110. menuadd Project (A-n New Window) $A-n
  111. menuadd Project (A-N Open new) $As-n
  112. menuadd Project (A-o Open) $A-o
  113. menuadd Project (A-O Include file) $sA-o
  114. menuadd Project (    Save block) (arpbsave)
  115. menuadd Project (A-w Save) $A-w
  116. menuadd Project (A-W Save as) $As-w
  117. menuadd Project (    Print block) (bsave prt:)
  118. menuadd Project (A-q Quit) $A-q
  119. menuadd Project (A-Q Save & Quit) $As-q
  120. menuadd Project (A-BS *Iconify*) $A-BS
  121.  
  122. menuadd Environment (s-nk0 Toggle InsertMode) $s-nk0
  123. menuadd Environment (a-[   Toggle NumLock) a-[
  124. menuadd Environment (      Toggle Case sensity) (toggle ignorecase)
  125. menuadd Environment (a-]   Toggle Worpwrap) a-]
  126. menuadd Environment (help  Reformat) reformat
  127.  
  128. menuadd Special (c-help Undo) undo
  129. menuadd Special () null
  130. menuadd Special (   A-d Date) $A-d
  131. menuadd Special (   A-d Time) $A-t
  132. menuadd Special (   A-- Enter ASCII) $A--
  133. menuadd Special ( --------------------) null
  134. menuadd Special ( A-u Uppercase Word) $A-u
  135. menuadd Special ( A-U Lowercase Word) $A-U
  136. menuadd Special ( A-g Change case Char) $A-g
  137. menuadd Special ( A-G Change case Word) $A-G
  138. menuadd Special (cA-u Uppercase Block) $cA-u
  139. menuadd Special (cA-U Lowercase Block) $cA-U
  140. menuadd Special (A-nk5 This <-> next) $c-nk5
  141. menuadd Special (---------------------) null
  142. menuadd Special (A-! Mark Location 1) $sA-1
  143. menuadd Special (A-" Mark Location 2) $sA-2
  144. menuadd Special (A-§ Mark Location 3) $sA-3
  145. menuadd Special (A-1 Jump mark 1) $A-1
  146. menuadd Special (A-2 Jump mark 2) $A-2
  147. menuadd Special (A-3 Jump mark 3) $A-3
  148.  
  149. menuadd Cut/Past (A-b Block) $A-b
  150. menuadd Cut/Past (c-u Unblock) $c-u
  151. menuadd Cut/Past (A-m Move Block) $A-m
  152. menuadd Cut/Past (A-c Copy Block) $A-c
  153. menuadd Cut/Past (A-x Cut Block) $A-x
  154. menuadd Cut/Past (    Pushmark) pushmark
  155. menuadd Cut/Past (A-i Popmark) popmark
  156. menuadd Cut/Past (-----------------) null
  157. menuadd Cut/Past ( c-del Del Line) $c-del
  158. menuadd Cut/Past (ac-del Undel Line) $ac-del
  159. menuadd Cut/Past ( s-del Del Word) $s-del
  160. menuadd Cut/Past (as-del Undel Word) $as-del
  161. menuadd Cut/Past ( a-del Rem EOL) $a-del
  162. menuadd Cut/Past ( a-bs  Rem BOL) $a-bs
  163.  
  164. menuadd Find/Replace (A-S Find) $A-S
  165. menuadd Find/Replace (A-s Find next) $A-s
  166. menuadd Find/Replace (A-a Find prev) $A-a
  167. menuadd Find/Replace (A-R Multireplace) $A-R
  168. menuadd Find/Replace (A-r Replace next) $A-r
  169. menuadd Find/Replace (A-A Replace prev) $A-A
  170.  
  171. menuadd Move (A-j Jump to Line) $A-j
  172. menuadd Move (A-J Jump to Block) $A-J
  173. menuadd Move () null
  174. menuadd Move (Amiga Cursor Key) null
  175. menuadd Move (  move Block left) $A-left
  176. menuadd Move (  move Block right) $A-right
  177. menuadd Move (Shift Cursor Key) null
  178. menuadd Move (  Pageup) Pageup
  179. menuadd Move (  Pagedown) Pagedown
  180. menuadd Move (  Word left) wleft
  181. menuadd Move (  Word rigth) wright
  182. menuadd Move (Ctl Cursor Key) null
  183. menuadd Move (  Top) top
  184. menuadd Move (  Bottom) bottom
  185. menuadd Move (  Beg Line) first
  186. menuadd Move (  End Line) last
  187. menuon
  188.  
  189. if b (if t (if r arpload))
  190.  
  191.